home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_08 / progging / gtest
Encoding:
Text File  |  1994-02-25  |  1.5 KB  |  47 lines
  1.  
  2.    10 REM > GTEST
  3.    20 DIM   code 128 , data 80000
  4.    30 MODE 15
  5.    40 linestart =4
  6.    50 xcounter  =5
  7.    60 pixvalue  =6
  8.    70 dataddress=7
  9.    80 linelimit =8
  10.    90 FOR J%=0 TO 199
  11.   100    FOR I%=0 TO 399
  12.   110       K%=J%*400+I%
  13.   120       K%?data=J%
  14.   130    NEXT
  15.   140 NEXT
  16.   150 FOR I%=0 TO 3 STEP 3
  17.   160   P%=code
  18.   170[ OPT I%
  19.   180.start
  20.   190   ADR  R0,vduinput     
  21.   200   ADR  R1,displaystart
  22.   210   SWI  "OS_ReadVduVariables"
  23.   220   LDR  linestart,displaystart
  24.   230   ADD  linelimit,linestart,#128000  
  25.   240   MOV  xcounter, #0                  
  26.   250   ADR  dataddress,data               ; address of data in dataddress
  27.   260.loop
  28.   270   LDR  pixvalue,[dataddress],#1      ; get byte from data
  29.   280   STRB pixvalue,[linestart,xcounter] ; store 1 byte on screen
  30.   290   ADD  xcounter,xcounter,#1          ; inc xcounter for next pixel
  31.   300   CMP  xcounter,#400                 ; finished line?
  32.   310   BNE  loop                          ; no, go back to do more
  33.   320   ADD  linestart,linestart,#640      ; yes, start next line
  34.   330   MOV  xcounter,#0                   ; reset xcounter
  35.   340   CMP  linestart,linelimit           ; finished pattern?
  36.   350   BNE  loop                          ; no, go back to do more
  37.   360   MOV  PC,R14                        ; yes, go back to basic
  38.   370                                      ; blank line for clarity  
  39.   380.vduinput   EQUD  149
  40.   390            EQUD   -1
  41.   400.displaystart  EQUD  1
  42.   410]
  43.   420   NEXT
  44.   430   CLS
  45.   440   CALL start
  46.  
  47.